﻿! door_panel_H /modified by VL 3/1/94/
! internal macro: door_int_frame
! a=width, b=height, c=thickness, d= panel frame width,
! e=fill material
f=1"     ! internal frame width of fill

prism_ 30, c,
0,0,15,
0,b,15,
a,b,15,
a,0,15,
0,0,-1,
d,d,15,
a-d,d,15,
a-d,3*b/7-d/2,15,
d,3*b/7-d/2,15,
d,d,-1,
d,3*b/7+d/2,15,
a/2-d/2,3*b/7+d/2,15,
a/2-d/2,6*b/7-d,15,
d,6*b/7-d,15,
d,3*b/7+d/2,-1,
a/2+d/2,3*b/7+d/2,15,
a-d,3*b/7+d/2,15,
a-d,6*b/7-d,15,
a/2+d/2,6*b/7-d,15,
a/2+d/2,3*b/7+d/2,-1,
d,6*b/7,15,
a/2-d/2,6*b/7,15,
a/2-d/2,b-d,15,
d,b-d,15,
d,6*b/7,-1,
a/2+d/2,6*b/7,15,
a-d,6*b/7,15,
a-d,b-d,15,
a/2+d/2,b-d,15,
a/2+d/2,6*b/7,-1
addx d
addy d
call door_int_frame a-2*d, 3*b/7-3*d/2, c/2, f
   gosub 1               !***fill#1
addy 3*b/7-d/2
call door_int_frame a/2-3*d/2, 3*b/7-3*d/2, c/2, f
   gosub 2               !***fill#2
addx a/2-d/2
call door_int_frame a/2-3*d/2, 3*b/7-3*d/2, c/2, f
   gosub 2               !***fill#2
del 1
addy 3*b/7-d/2
call door_int_frame a/2-3*d/2, b/7-d, c/2, f
  gosub 3               !***fill#3
addx a/2-d/2
call door_int_frame a/2-3*d/2, b/7-d, c/2, f
   gosub 3               !***fill#3

end

1: add f, f, c/8         ! ***fill#1 definition
    material e
    block a-2*(d+f),3*b/7-3*d/2-2*f, 0.004
    material M_
    del 1
return
2: add f, f, c/8         ! ***fill#2 definition
    material e
    block a/2-3*d/2-2*f, 3*b/7-3*d/2-2*f, 0.004
    material M_
    del 1
return
3: add f, f, c/8         ! ***fill#3 definition
    material e
    block a/2-3*d/2-2*f, b/7-d-2*f, 0.004
    material M_
    del 1
return

